﻿Public MustInherit Class Transacao
    Public Property data As String
    Public Property valor As String
    Public Property quantidade As Integer
    Public Property veiculoId As Integer
    Public Overrides Function ToString() As String
        Dim ret As String = Me.quantidade
        If Me.quantidade = 1 Then 'singular
            ret &= " viarura, no valor de "
        Else 'plural
            ret &= " viaruras, no valor de "
        End If
        Return ret & Me.valor
    End Function


End Class
